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-TITLE MAINDEC-11-DTTMA-B TMI1/TUIO DEVICE ROUTINE FOR MPG 

;REVISION °B’ 

;FILENAME OF “TTMABO.MPG” ON MPG/XXDP MEDIA 
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SLNKX11: OTTMA?. 
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eS te ee oS Se, 

G4 Goose" 805060 crossy: ‘HOR 3170 BUSY ? 

19s 900080" oo0000 CUPGER: “WORD 9 :DEVICE ERROR BRANCH AOR 
18% oo0s4° bo000 afer: curb ; CHINO PRINT ROUTINE BRANCH. AOR 
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mm 0150S 
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ELE 4 ahem 
.WORD O0D-. 
: :T TERMINATOR 
OS2111 DVPKTE: .ASCII /NOWAIT/ :PACK TABLE EXTENSION 
BY! 376,0 
OS2111 : I 7 bAltv 
051525 bib 7gthius, 
os1s24 Beret 7COUNTS/ 
-BYTE 373.0 
0S2105 ASCII fet 
043522 “ASCII RG/ 
-BYTE 371.0 
043117 ae OF / . 
042127 ise 7 SPFWO/ 
“BYTE 367.0 
053105 “ASCII 7 SPREV/ 
“BYTE  366,0 
042116 ASCII /RENIND/ 
047111 Bert eset 
-BYTE 364.0 | 
047105 "ASCII 7 EVEN/ 
“BY 363,0 | 
042104 “ASCII 7 ‘ODD/ 
“BYT “ 362.0 “ | 
pram Bree $61.8" 
DVMVTE: .WORD  376,LNWAIT-LOCZ sMODEL VECTOR TABLE EXTEN. 
“WORD  375;LWAIT-LOCZ 
“WORD 374; LSTATS-LOCZ 
: "LC 49 2 
-WORD 370; LWREOF-LOCZ 
: 367, SPFHD-LOC 
d LEPREV-L 
d 365, LRWIND-LOC 
“WORD 364'LOFFLN-LOC2 
WORD 363, LEVEN-LOCZ 
-WORD  362,LO0D-LOCZ 
.WORD  361.LBPI-LOCZ 
COMPILER TABLE EXTENSION | 
BVCPTE: .BYTE 3,376 ;NO WAIT 
"WORD 4837.10 
“BYTE 3,378 ;WAIT 
“WORD 9837, 10. | 


BY 4 ; STATUS 
‘oR em 10. , 1002 
"BYTE 4,373 ; COUNTS 





7 
i 4537.10. , 1001 
f RP 3,37e ;CONTROL RESET 
“WORD 4837, Lu. 
-BYTE 6,371 ;WRITE EXTENDED INTER-RECORD GAP 
: 7,10. ,0,2,2 
BY 3,370 ;WRITE END OF FILE 
git 4837.10. 
BY 4 ff , :SPACE FORWARD 
‘BY 4 ;SPACE REVERSE 
“WORD 4637.10.,0 
“BYTE 3,365 ; REWIND 
“WORD 4637, 10. 
“BYTE 3.364 : OFFLINE 
? 4837, 10. 
“BYTE 3,363 SEVEN 
“WORD 4637,10. 
BYTE 3, 362 ;000 
> 4637, 10. 
“BYTE 4, 36] BPI 
24g WORD 4§37,10.,0 
52g 
ee] : DEVICE INTERFACE WORD SYMBOL TABLE 
253 000700’ O42122 041122 BVIWST: .ASCII /RORB/ 
254 000704’ oo0004 .WORD DEVIWI 
255 000706’ 051127 o41122 “ASCII 7WRRB/ 
256 000712’ 000006 : DEVIWe 
257 000714" 047505 020106 "ASCII /EOF 7 
Seg | 2 020124 "ASCII th ae, 
3 Bee: Bir Pore 
eel 30’ 1 “WORD 177777 sEND OF TABLE 
263 ; 
eb4 : MODEL STATEMENT TABLE EXTENSION 
266 000732" LNWAIT 
267 000732’ LWAIT: : 
268 * 000732’ LSTATS: 
Be ee 
Sy Doors" LRNTNO, 
272 00073e’ LOFFLN: 
273 000732" LEVEN: 
i Boe Ce 
se app 35 0 0S110& 046517 LWEIRG: Bett (377> /FROM/<377> 
40° 000377 
277 000742" LSPFWD: 


278 000742’ LSPREV: 
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ll STANDARD DEV 185 TINE 
ooo742’ 377 000 LBPI: . VTE 377,0 
+ T= 
000744" Besadd Het : . WORD O ;STORAGE FOR DEV REG’S AT INT 
000746’ 900000 -WORD 0 
900750" 000000 WORD : 
a Sea" aun uns “HOBD 0 
000756’ 900000 “WORD 0 
000760’ o00006 CSTAT: .BLKW 6 ;DEV REG CURRENT VALUES STORAGE 
900774’ oo00000 BYRD: .WORD O ;BYTES READ COUNT (READ) 
900776’ 900000 “WORD 0 
001000’ 900000 BYWR: .WORD 0 sBYTES WRITTEN COUNT (WRITE & WREIRG) 
001002" 99000 “WORD 0 
001004" ROCNT: :WORD 0 ;READ CMND COUNT (READ) 
0010906’ o00000 WRONT: .WORD 0 :WRITE CMND COUNT (WRITE & WREIRG) 
001010’ 000000 MISCNT: .WORD 0 sMISC. CMNO COUNT SPFWD, SPREV, 
: REWIND, OFFLIN, 8 hese 1s 

001012’ oo0000 RRBCNT: .WORD O :# OF READ ROLLBACKS 
001014" g00000 WRBCNT: - WORD 0 :8 OF WRITE ROLLBACKS 
001016’ 000000 EOFCNT: . 0 8 OF EOF’ 
001020’ oo0000 EOTCNT: .WORD 0 8 OF EOT’S 
001022’ 900000 ERRCNT: .WORD 0 :DEVICE ERRORS COUNT 
001924" 900000 :WORD «60 !DATA ERRORS COUNT 
001026’ 000000 INTCNT: .WORD 0 ‘INTERRUPTS COUNT 
001030’ so0000 TOECNT: .WORD 0 :# OF ENTRIES INTO 1/0 ERROR ROUT 
001032’ 900000 “WORD 0 :MAX # OF TIMEOUTS : 
001034’ 900000 “WORD =O :CURR ADR IN USE 
001036’ 900000 CNTADR: :WORD O :ADR OF BYTE COUNT TOTALS 
091040" 090000 CURFLG: :WORD 0 “FLAG WORD 
o01042’ 900000 CURCNT: .WORD 0 :BYTE CNT FOR C 
001044" 900000 FINCNT: .WORD 0 “FINAL WORD COUNT (MBRC) 
001046’ 900000 “WORD «0 ;CURR CNND FOR 
001950’ 900000 RBADR: .WORD O :CURR ADR FOR ROLLBACK 
001052* 900000 RBCNT: .WORD O : CURR BYTE CNT FOR ROLLBACK 
001054’ so00000 NUMRB: .WORD 0 *NUMBER OF ROLLBACKS ON CURR CMND 

001056’ HSKPEN= - 

ooo000 XXXX= 0 ;VALUE TO BE TAILORED BY DEV ROUT 
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Pll TM11 SUPPORT WOUTINES ENTERED FROM MEG 3 
.SBTTL TM11 SUPPORT ROUTINES ENTERED FROM MPG 
;DEVICE ROUTINE HOUSEKEEPING 
;JSR «RS. HSKEEP S/R CALL 
:.WORD O OR 1 0 = DO HSKP PER OPSW 
: 1 = UNCOND. DO HSKP 
Re = *S OPSW 
!DESTROYS RO,R1 
001056’ 012767 O60000 176716 HSKEEP: MOV #60000, OFLGWD ;SET BPI TO 800 8 PARITY TO ODD 
001064" 012767 600001 176712 MOV #1, RORB :SET READ ROLLBACK CNT TO 1 
001072" bie767 000003 176706 MOV #3/ WRRE :SET WRITE ROLLBACK CNT TO 3 
1100’ TST (RS)+ sUNCONDITIONALLY DO HSKP? 
001102’ 001003 BNE 10$ :N, Y-10$ 
O511043" 000004 git BHSKPEP, Re :OPSW SPECIFY EACH PASS HSKP? 
agi 11g; 101 tY N- 
001112’ 010700 10$: MOV PC. RO :SET UP FIRST WD ADR 
001114’ 062700 177630 ADD 8HSKPST-. RO 
001120’ 012701 oo004s MOV SHSKPEN-HSKPST/2,R1 ;SET UP # OF WORDS 
001124" 20S: cur (RO)+ : HSKP ALL NECESSARY AREAS 
001126" C Ri 
901130’ O01 BNE 20$ 
001132’ 900205 30% RTS RS sEXIT IN-LINE 
;TM11 REPORT ROUTINE 
;JSR_ «RS REPORT S/R CALL 
> WORD FLOW FLAGWORD , | 
: BIT 15 = CMND MODE CALL 
: BIT 9 = PROG STMNT CALL | 
: IT 1 = DO STATUS REPORT 
; BIT O = DO COUNTS REPORT | 
001134’ 004067 0027 REPORT: J RO, SAVREG VE REG’S RO - 
001140" 032715 1 Bit RT pPo TE. CRS) a SPLAT avINg CNTs END OF 
us ° - 
BotiNe? BO7H8 a RO CET up ABR OF’ CNTS: 
pot ieq? spObie SOY aB{RD- -,RO T.#,0F CNT Wo 
ue of be 
Bt tea" 7 cs: TST faais ls ort 
001162’ 001003 5 BNE 10$ : Sis 
BE. eH RS os cans 
001170’ neat BN BYREX ek eD at EXIT -- ALL CATS ARE ARE O°S 
001172" 004767 o02676 10$: JSR PC, SUPTAD i‘ UP PROG TBL ADR IN R3 
001176’ 012504 MOV (RS)+,R4 GET FLAGWORD 
901200" 03e704 ooooo2 BIT #2, ; GOING TO pe STATUS DISPLAY? | 
Bot be nea 002706 Fee Bd STSTAT it8 Nop aaeN STATUS REG’S 
001212’ 177546 .WORD CSTAT-. 
001214’ 010700 MOV PC RO ;SET uP OR OF REG’S AT 
poieie’ 062700 177526 ADD sISTAT-. ,RO :LAST INT 
lee2’ 012701 oo0006 MOV #6,R1 ‘SET UP & OF REG’S | 
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RPTBAS: .WORD 


RPTEND: J 


DVREX: 


REPTBL: .WORD 
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cy 
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RTtRaee, 


e- DISPST 
IStat-. 
45g 
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Nya 


;DISPLAY CURR UNIT 8 

SISSUE AT LAST INT? MSG 

;GO DISPLAY STATUS AT LAST INT 
;CONTINUE DISPLAY 

DISPLAY CURR UNIT 8 

ISSUE * CURRENTLY’ MSG 

;GO0 DISPLAY CURRENT STATUS 

;GO DISPLAY INFO WORDS 


K DISPLAY 
ican ee 
iy TY APTE 
:SET UP cio WORDS 
:SET UP ADR OF CNTS 
;SET UP TBL ADR 

vNSG ADR ADB 19 S/R LINKAGE 
‘COVE 
GET CURREN iF ScBunt 
:CONVERT IT TO ASCII 
sRESTORE REG’S 
‘POINT AT NXT CNT 
‘DONE ALL WORDS? 
;Y,N-RPTLP 
:G6 ISSUE COUNTS MSG 


;ISSUE “END OF REPORT” MSG 


;RESTORE REGISTERS 
:SET_UP Re Tue POINT 
sEXIT IN-LINE 


SEG 0397 


sinetenall 
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eo 
b+ 2 


8888888 888888888888 


2 b+ b= b— b+ b+ +0 -* b+ O = = bs bh 2 ho pe 


ae SEA at 
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ENTERED 7 


FROM MPG 
. WORD CNTURG-RP TBAS 
HOER  ENTESE-BB TBR 
4 ioe NT BR-RPT 
ENTINT-RPTBAS 
; TIMEOUT ERROR ROUTINE 
;JSR RS, TOUTER S/R CALL 
TOUTER: INC TOECNT sINCR 8 # OF TIMEOUTS THAT OCCURRED 
CHP TOECNT , TOEMAX#1 sar 4 OF TIMEOUTS IN A ROW? 
ISR RO, SAVREG ‘Yer gure L REGISTERS li 
388 Be STA Sed uP CURRENT © 5 Bree 
rR cot 4 TOR CONTROL? 
apg Bh fet tbo | 
mene pelatnt v TERRUPT VECT 
10$: bye eatator (R3) an The TNE BRUPT Se FI ge 
ISR RS. ERRCS1 ISSUE TIMEOUT ERROR MSG 
WORD TOTO-ERMBAS 
JSR ' RO. RESREG sRESTORE REGISTERS 
MOV (SP)+. RS :REMOVE RETURN ADR 
JMP JCUPGER :GO TO ERROR EXIT 
TOUTEX: RTS RS EXIT IN-LINE 
;KILL USER PROGRAM ROUTINE 
;JSR __RS,KILL S/R CALL 
:R3 MUST CONTAIN PROG TBL ADR 
:DESTROYS RO,RI 
KILL: J fi TVECT sk a Fy Hav HAVE {VECTOR CONTROL 
B LEX 
MOV Rl eer rev REG 
MOVB ai ech) ‘RESET INT ENABLE 
JSR PC,RINT RESET INT VECTOR INFO 


KILLEX: RTS sEXIT IN- 
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481 
482 
483 
484 


001612" 042767 
620’ 


100000 
88 004767 001252 
489 001624" 004767 002136 

000205 


497 001632’ 052767 100000 
498 001640’ 000205 


CELE LCLCCL 
SER 


499 

ET 

502 

503 

2b¢ 1642’ 767 004000 

Bbe Bolese* bodens 

507 

508 

509 

510 

Sil 

512. i 

Bia - less. 052767 O04000 

514 061660" 000205 

515 

S16 

517 

518 

519 

520 

Sel 

BSS teed par be 001274 
1666’ 012500 

Se4 001670’ 010701 

252 Bbleve" —— 
001676’ llel 

be? 001700" 10041¢ 
no , 

256 Bolbe" 001373 

S31 001710’ 042767 O60000 

B36 001716’ 000303 
001720’ 050367 176056 

534 001724’ 000205 

S35 001726’ 004767 O02l42 

S36 001732’ 042767 000010 


176162 WAIT: 


176142 NOWAIT: 


176132 ODD: 


176122 EVEN: 


BPI: 


108: 


176064 


BPIER: 
176042 


-SBTTL TM11 FUNCTION ROUTINES 


;"WAIT” FUNCTION ROUTINE 
;JSR = RS, WAIT 


BIC #100000, DF. SWD 
ISR PC, CKDBSY 


;"NOWAIT” FUNCTION ROUTINE 
;JSR RS ,NOWAIT 
rae 


;"EVEN” FUNCTION ROUTINE 

; JSR RS ,EVEN 
BIS #4000 , OFLGWD 
RTS RS 


;"BPI” FUNCTION ROUTINE 


Sn RS, BPI 
VALUE 

ISR a STSADR 
MOV CRS), RO 
pe a ,R1 
aby uk M4 a’ 
BMI 
MOVB PRs, R3 
CMP R 
BNE 10% 
BIC #60000, DFLGWD 
SWAB 
BIS R3, DFLGWD 
RTS RS’ 
JSR PC, SUPTAD 
BIC #10, DFLGWD 
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FUNCTION CALL 
SET THE Ry 
ATT IF TERMINATION 


RESET T NTE T VECTOR 
sEXIT IN-LINE 


FUNCTION CALL 


T_THE “NOWAIT” FLAG 
SEXIT IN-LINE 


FUNCTION CALL 


5 BESET THE EVEN FLAG 
sEXIT IN-LINE 


FUNCTION CALL 


;SET_THE EVEN FLAG 
sEXIT IN-LINE 


FUNCTION CALL 
BPI BITS VALUE 


‘cer art va STMNT’S MEM ADR 
T UP. ADR OF VALID BPI VALUES 


GET vaLIb v VALUE 

‘END OF TBL? (N, Y-BPIER) 
:GET CORRESP. BIT VALUES 
;MATCH THIS VALID VALUE? 


RESET BPI BITS IN FLGWD 
ALIGN eae 

‘SET IN NEW oe BIT VALUES 
‘Bar TO USER PROG 


PROG TBL ADR 
;HOUSEKEEP ERROR FLAG 


-————__ 
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‘SEQ 0400 


537 001740’ 004567 001250 ISR RS, ERRIS ;REPORT INV BPI VALUE ERROR 
538 001744’ 002020 .WORD INVBPI-ERMBAS 
639 001746’ 000015 WORD . 
eto 001750’ GOOSES BR DERROR GO TO ERROR EXIT 
S42 001752’ 000 000 BPIVVL: .BYTE 00,000 ;VALID BPI VALUES 
S43 001754’ O01 040 -BYTE 01,040 
S44 001756’ 010 100 “BYTE 10,100 
54s 001760’ O11 140 “BYTE 11.140 
S46 001762’ 377 377 ‘BYTE 377,377 
54g 
13 "READ" FUNCTION ROUTINE 
Sl ;JSR_- RS READ FUNCTION CALL 
552 :.WORD ADR DATA ADDRESS (BITS 16 & 17) 
553 : WORD ADR DATA ADDRESS (BITS O - 15) 
5c4 > WORD CNT BYTE COUNT 
| B55 ?;WORD DEV (NOT USED) 
| 557 001764 012701 000103 READ: MOV #103, R1 ;SET UP READ CMND CODE 
| 558 001770’ 012702 001421 MOV #1421 Re :SET UP READ FLAG WORD 
559 001774’ 004767 001076 RDCOM: JSR PC. CKDBSY :GO CK IF Dev IS BUSY 
| 560 o02000’ 005267 177000 INC RDOCNT ?ADD 1 TO READ CMND CNT 
561 O02004’ 010700 MOV PC, RO :SET UP ADR OF BYTES READ CNT 
_  §62 002006’ 062700 176770 ADD #8YRD+2-. , RO 
| S63 002012’ ooo46s BR CMDCOM ;GO TO CMND COMMON PROCESSING 
565 
| ob ;"WRITE” FUNCTION ROUTINE 
568 ;JSR RS WRITE FUNCTION CALL 
563 :.WORD ADR DATA ADDRESS (BITS 16 & 17) 
570 :-WORD ADR DATA ADDRESS (BITS O - 15) 
571 : WORD CNT BYTE COUNT 
ne >.WORD DEV (NOT USED) 
| ‘ - 
/  §74 002014’ 012701 ooD105 WRITE: MOV #105,R1 :SET UP WRITE CMND CODE 
_  §75 O02020’ 012702 001441 MOV #1441 Re : CMND FLAG WORD 
676 OO0e0e4’ 004767 OO1046 WRCOM: JSR PC, CKDBSY 3G0 CK IF DEV IS BUSY 
577 002030’ 005267 176752 INC WRONT ‘ADD 1 TO WRITE CMND CNT 
578 002034’ 010700 MOV PC, RO SET UP ADR OF BYTES WRITTEN CNT ' 
5739 002036’ 062700 176744 ADD #BYWR+2-. , RO . 
520 002042’ 000451 BR CMDCOM :GD TO CMND COMMON PROCESSING 
582 
83 ;"WREIRG” FUNCTION ROUTINE , 
ces ;JSR RS, WREIRG FUNCTION CALL 
586 ;.WORD ADR DATA ADDRESS (BITS 16 & 17) ts 
587 :-WORD ADR DATA ADDRESS (BITS O - 15) 
588 :.WORD CNT BYTE COUNT \ 
590 oo2044’ 012701 000115 WREIRG: MOV #115, R1 ;SET UP WREIRG CMND CODE 
91 ’ Ole702 oO0144e MOV #1442, Re -SET UP CMND FLAG WORD 
S92 o02054’ 000763 BR WRCOM :GO TO COMMON WRITE PROCESSING 
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;“WREOF” FUNCTION ROUTINE 


;JSR RS,WREOF 
MOV #107,R1 

MOV #450; Re 

BR WRCOM 


:"SPFWD” FUNCTION ROUTINE 
;JSR RS, SPF MD 
WORD CNT 


MOV #111,R1 
OV #3014. Re 
ISR PC, CKDBSY 
INC MISCNT 
BR CMDCOM 


;"SPREV” FUNCTION ROUTINE 


:JSR RS, SPREV 
WORD CNT 

MOV #113,R1 

BR SPCOM 


;"REWIND” FUNCTION ROUTINE 
;JSR RS , REWIND 


: MOV #117,R1 


MOV #11510, ze 

BR MISCOM 

;"OFFLIN” FUNCTION ROUTINE 
;JSR - RS, OFFLIN 

: MOV #101, Ri 

MOV #410'Re 

BR MISCOM 

;"CRESET” FUNCTION ROUTINE 
;JSR RS, CRESET 


: JSR PC, CKDBSY 


N NISCNT 
PC, SUPTAD 
BIS #10000, (R4) 


1 eden FOR MPG 9 MACY11 27(732) 24-SEP-76 14:00 PAGE S-¢ 


FUNCTION CALL 
;SET UP WREOF CMND CODE 


:SET UP CMND FLAG WORD 
GO TO COMMON WRITE PROCESSING 


FUNCTION C 
# OF RECORD: “to SPACE 


;SET UP SPFWD CMND CODE 


CNT 
TO CMND COMMON PROCESSING 


FUNCTION CALL 
# OF RECORDS TO SPACE 


;SET_UP SPREV CMND CODE 
:GO TO SPACE COM PROC. 


FUNCTION CALL 
; SET e REWIND CMND CODE 
at CMNO FLAG WORD 

GO TO COMMON MISC. PROCESSING 


FUNCTION CALL 


; SET i. ey CMND CODE 
:SET_UP CMND F 


Wo 
- 360 10 MISC. CNN wm PROCESSING 


.FUNCTION CALL 
3G0 CK IF Sh 


1000 bat so. Toa 


;SET POWER CLEAR BIT IN MTC 


Boz 
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TM11 INTERRUPT SERVICE ROUTINE 


TMINT: ike 


ess: 


4S$: 


_— — a a ee 2 


SR 


og Sent tosh as 


PRES ERINS ERE 
4O 4020 4nN5<oO-4 


eat iat 


TM11/TULO DEVICE ROUTINE FOR MPG 


DO 
MACY11 27(732) 


a ee ee ee ee a eee ee + 


24-SEP-76 14:00 PAGE & SEG 0404 


TM11 INTERRUPT SERVICE ROUTINE 


» (RY) 


BE Ny HEE on 


*s§ 
‘SFoRe ALL DEV Pret: S 
seer oa S Lee 
ie N- 
IN PROG FLG 


ie 
eee 
a nh he racr BITS 


"WREIRG” CMND CODE 
1 Ssue CMND 
RE TO INT EXIT 
s ERROR ROR BIT SET? 
‘tats A REWIND CMND? 
es RC’VD 1ST INT? 


T. Re vo 1ST INT FLG 
hae 


ny T0 bent EXIT 


BYTE CNT 
if ["Forcor EN? 
sSELEGT REMOTE SET? 
ye ERRORS” 
Bat BR Lac ERRORS? 


Mtl AT MT 


G0 CK CMND ype 


4 


") i 


MAINDEC-11-DTTMA-B TLL TUL DEVICE ROUTINE FOR MPG MACYL1 27(732) 24-SEP-76 14:00 PAGE 6-1 
TTMAB.PLL TM11 INTERRLST SERVICE ROUTINE 
731 ;ERROR & NORMAL TERMINATION 
a 
, ‘ : F 
Cag BASSES. Resco QRRRAY i5eRag ebe: HE +f °oPE RGB beet Spe BBR EAH TLS 
- 795 002736’ 005724 70$: TS (R4)+ :POINT a AT MTC 
79 002740’ 042714 000100 g0$: BIC #100, Bat Thee cr 
rae feeres: Geers aa OTe rane mS IEE 10 rom 
o , isoe3 1 90$: V pte Gre or 
800 O02762’ 004067 001070 JSR ALL REGISTERS 
g01 002766’ 000177 175102 IMP RO FESrEG He, OM INTERRUPT 
803 
gb ;ROLLBACK TYPE OF ERROR 
806 gue77e" 000060 100$: BIT 860,Re2 sROLLBACK TYPE OF CMND? 
807 * 901754 BEQ 60$ :Y N-60S 
808 003000’ o00400 o00002 BIT 8DOERCK , POPSW(R3) :Db ERROR CK/RECOVERY? 
a3 aeatet 000040 Bt i, zi :THIS A WRITE ROLLBACK? 
811 003014" 001407 BEQ 110$ tY, Nel 0S 
gig 063016" 757 176032 174762 CMP NUMRB , WRRE iE D WR ROLLBACKS? 
1 ’ 001 BEQ SOS :N, Y= 
814 003026’ ? 175762 INC WRBCNT iTRCR TOTAL # OF WR ROLLBACKS 
gi 03036 2k 120$ 0 _SOMTION K PROC 
81 ’ 026767 176014 174742 1108: CMP NUMRB , RORS ‘EXHAUSTED READ KS? 
817 003042" 001727 BEQ SOS N.Y 
818 OO03044’ 005267 175742 INC RRBCNT iT ACR OTAL 8 OF READ {ROLLBACKS 
819 003050’ 005267 176000 1208: Inc s ADS 1 To ROLLBACK CN 
820 003054" 100000 15 #] ,Re :SE bBaCK IN BROCRESS FLG 
821 003060’ TST (R4)4+ !POINT AT MTC 
S22 003062’ MT ooooo2 MOV 8-1, 2(R4) :SET UP RECORD CNT OF 1 
823 003070’ 112714 113 MOVB #13, (RY) : 1SSUE SPACE REV CMND 
B24 003074" R :G0 76 INT 
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TM11/TU1O 
SUBROUTINES FOR 


VICE_ ROUTINE 
M11 FUNCTION 


174656 


000012 
000006 


175640 


000110 


174516 


ERRCS: 


ERRCS1: 


ERRIS: 


ERRCOM: 


F 
R 


OR MPG MACYI1 27(732) 24-SEP-76 14:00 PAGE 7 
OUTINES 


~SBTTL SUBROUTINES FOR TM11 FUNCTION ROUTINES 


;CHECK IF DEVICE IS BUSY AND WAIT IF IT IS 


i ee 


;JSR__-PC,CKDBSY = = S/R CALL 
:DESTROYS AO,R3,R4 
;ON EXIT: 
:R3 = PROG TBL ADR 
;R4 = MTC ADR 
PC, SUPTAD TBL & MTC ADR'S 
Bit iba cra Hint Ehese oh 
BEQ 20$ : 
ISR RS, ICIOBSY ‘Release CONTROL 
ge 10% :G0 CK AGAIN 
I #2 ,DFLGHO ; HAVE TO PROCESS PREV TERMINATION? 
JSR PC. PROCTM :GO PROCESS TERM NATION 
BF 10$ :GO RECHECK INT E 
HOV TVCTAD 40s : STORE INT VECTOR ADR 
Wee eg $25 °8E eG az TUR BORO 
~WORD —- XXKX : INT VECTOR ADR 
~WORD XXXX : 
“WORD  TMINT-. : REL INT ROUT ADR 
MOV RS, ERRADR ‘SAVE CUPR USER STMNT ADR 
UB 84’ ERRADR 
PC sEXIT IN-LINE 


;ERROR INFORMATION DISPLAY S/R 


Jes Ree 


ZR G6 FOR ERT sfaTUs 


2 OF BYTES in PRROR MSG 


GROR-ERMBA 


seme a a Re 


JSR RS STSTAT ;STORE CURR STATUS 
HOV CS TAT-ERSTAD, ERSTAD  ;STORE ADR OF CURR STATUS 
Hoy sista cast, ERSTAD Now ROR OF Peayt INT STATUS 
MOV (RS). ” ERMBAS+2 +B TORE nee, Ch 

INC ‘ADD I TO ERR OR CNT 

BIT SPRONER, POPSW(R3) ERROR PRINTING INHIBITED? 
BNE ERREX N V-ERREX 

MOV on -(SP) 

CLR e se ul uber NODE PRINT FLAG 
BIT ne Naat fe Bac BX BAUS TED? 

ISR Re. PRINT iyacue® ROLLBK EXH MSG 


a ec a er ee ee 








Peieiiiaisise ria pauemari ttre ttat ie 


OwWdOwOwWwWWwWww 
oh 
WO NOU .£ WTC 


SSSR PRES 


wD 
Ww 
-— 


Bea 


Pll 


psere : 


C=11-DTTMA-8 SO TM11/TULO 
SUBROUTINES FOR 


001062 


177770 


OO1646 
174474 


020040 
000764 


0004 
000010 


175404 
175402 


174344 
175356 
000001 
000001 
000400 
001534 


000023 
000040 


mm ee ee ee. + - 


VICE ROUT ENE 
M11 FUNCTION 


175470 


001634 


174360 
175410 


174310 


174320 
000002 


S$: 


ERMBAS: 


ERREX: 


PROCTM: 


6$: 


10$: 


FOR MPG MACYI1 27(732) 24-SEP-76 14:00 PAGE 7-1 


ROUTINES 
4 RBEXHM-. 
i Re, PRINT ;PRINT ERROR MSG SPECIFIED 
XXXX 
CMP ERMBAS, SINVDVN-ERMBAS ; INVALID UNIT 8 OR BPI ERROR? 
BHIS €£ RRSNM 
ISR RS, DISPST iDtepcay STATUS REG’S 
: .WORD XXX 
ISR TIWO sDISPLAY EOT & EOF VALUES 
fe eee "Gat che 
CMP 40, hese Fa ie rm THIS STMNT? 
BEQ 20$ :N. Y= Bos” 
ADD R1.RO :POINT AT NXT STMNT 
BR 10$ GO CK NXT STMNT 
TST (RO)+ SET UP ADR OF STMNT # DATA 
MOV PC, RI :SET UP DATA OUTPUT ADR 
ADD #STMNUM-. RI 
ISR ;CONVERT IT TO ASCII 
MOV #20040, STMNUM+4 :SET 2 LOW DIGITS TO SPACES 
JSR RS, PRINT ‘ISSUE STMNT # MSG 
.WORD  STMNMG-. 
“WORD «= 14. 
MOV (SP)+,R4 sRESTORE RY 
RTS RS EXIT IN-LINE 


;PROCESS TERMINATION OF PREVIOUS I/0 FUNCTION 


;JSR  PC,PROCTM S/R CALL 
ISR RO, SAVREG ;SAVE ALL REG’S 
BIC :RESET PROCESS TERMINATION FLAG 
BIT #10, CURFLG 5 INCR gyT — COUNT? 
BNE x3 
MOV CURCNT, RO ice Tuan ie Are CNT 
MOV FINCNT:R1 
BPL 2s 1S IT TNE EA Ive? YY, N-2$) 
NEG Rl ; MAKE NAKE TT Post IVE 
SUB R1,RO NING CNT FROM INITIAL CNT 
MOV RO’ SIZE STORE # OF BYTES ACTUALLY XFERRED 
MOV CNTADR, RI ;GET ADR OF BYTE CNT 
ADD RO, (R13 :ADD IN THIS CN 
ADC -(R1) [UPDATE MOST SIGNF WORD OF CNT 
BIT #1, DFLGWD HAS THERE AN ERROR? 
BEQ go$ Ya 
MOV #1. ERR ERROR INDICATOR 
BIT SDOERCK , POPSH(RS) Siro D TO DO ERROR CHECKING? 
MOV PC.RI ‘cet ADR OF CODE AREA IN ERR MSG 
ADD sCODFLD-. ,R1 
MOV RI. Re sMOVE IT TO WORK REG 
MOV #15. RO :SET UP AREA 
MOVE #40, {Re)+ :CLEAR AREA TO SPACES 


SEQ 0407 | 


g 


RRRRRRARRARMRRe See LEE Le! 


R 
£ 


SEBS RRB Ree da Vaal sunmcee ein 


ry a] 
BBB. 


1-DTTMA-B  TMLI/TUIO DEVICE ROUTINE FOR MPG MACYI1 27(732) 24-SEP-76 14:00 PAGE 7-2 SEQ 0408 
l SUBROUTINES FOR TMil FUNCTION ROUTINES ; 
90 74 BNE 19s 
1 MOV C.RO ;SET UP ADR OF ERROR CODE TBL 
700 oo01Sé ADD 8ERCDTB-. ,RO 
10702 MOV ¢ ;SET UP ADR OF STORED DEV REG’S - 1 
062702 175175 ROD sISTAT-1-. ,R2 
OOSO46 CL -(5P) s INITIALIZE CODE CNT 
15S: INC Re sPOINT AT NXT STATUS BYTE 
ll 20$:  MOVB  (RO)+,R4 GET ERROR BIT MASK 
120427 000377 CMPB =s«R4. 8377 :GO TO NXT STAT BYTE CODE? 
001773 BEQ is$ IN. Y-15 
005704 TST RY “END OF THE CODE TBL? 
001427 BEQ BOS :N. Y-60 
120427 000376 CMPB #376 *BIT VALUE OF O = ERR COND? 
001004 BNE 30 ?Y N= 
112004 MOVB = (RO)+,R4 ‘GET BIT VALUE 
130412 BITB RY, (RE) ‘THIS BIT RESET IN STAT BYTE? 
00 BEQ 4o$ IN. Y= 
R 353 :G0 TO NXT TBL_ENTRY 
130412 30$: BITB RY. (R2) ‘THIS ERROR BIT SET IN STATUS BYTE? 
001003 4o$ iN. Y=4 
062700 000003 35$ ADD #3,R0 ‘POINT AT NXT CODE TBL ENTRY 
000756 20$ GO CK FOR NXT C 
005716 40$ TST (SP) ‘FIRST ERROR CODE IN MSG? 
001402 sos :N. Y-SO$ 
112721 900054 MOVB 8’... (R1)+ :MOVE C TO 
005216 Os: INC (SP} :INC # OF CODES IN THE MSG 
112021 MOVB  (RO)+,(R1)+ ?MOVE ERROR CODE 
112021 MOVB  (RO)+)(R1)+ 
112021 MOVE  (RO)+'(R1)+ 
022716 ooo00s CMP #5. (SP) :PUT 5 CODES IN THE MSG? 
001343 BNE 20$ ?Y N-20$ . 
005726 60S S (SP )+ :RESTORE STACK 
OO04S67 177336 J5R RS, ERRIS GO ISSUE STATUS ERROR MSG 
001730 .WORD TMEMSG-ERMBAS 
000041 “WORD 33. 
004767 00100 65S: JSR PC, RINTV :GO RESET INT VECTOR 
004067 O00164 JSR RO; RESREG : RESTORE REG'S 
004577 174152 JSR RS’ SCUPGER :GO TO MPG ERR RETN POINT 
000207 RTS PC “EXIT IN-LINE 
005267 175116 70$: INC ERRCNT "ADD 1 TO ERROR 
004767 O00056 g0$: JSR PC, RINTV :GO RESET INT VECTOR 
004067 O00142 JSR RO; RESREG RESTORE REG’S 
RTS PC EXIT IN-LINE 
047200 046530 ERCDTB: . ascll <B00> /NKM/ sERROR MSG CODE TABLE 
i00 046123 122 “ASCII <100>/SLR/ 
004 051127 115 “ASCII §<004> /WRL/ 
377 -BYTE 377 
O44600 O41514 "ASCII <200>/ILC/ 
440 042522 ASCH <040> /CRE/ 
042501 "ASCII <020> /PRE/ 
041010 046107 “ASCII <O10>/BGL/ 
051002 O42514 “ASCII <O002>/RLE/ 
641001 o42524 “ASCII «O01» /BTE/ 


MAINDEC=11-JTTMA-B — TM11/TU1O DEVICE ROUTINE FOR MPG MACY11 27(732) 24-SEP-76 14:00 PAGE 7-3 SEG 0409 
| OTTMAB.P11 SUBROUTINES FOR TM11 FUNCTION ROUTINES 


394 103764’ g00 .BYTE 0 ; TABLE TERMINATOR 
99s 003766’ "EVEN 

oi | 

332 ;RESET INTERRUPT VECTOR S/R 

1000 :JSR —_PC.RINTV S/R CALL 

1001 :R3 MUST CONTAIN PROG TBL ADR 

{bos sDESTROYS 

1008 003766’ O04S67 00020 RINTV: ISR RS, TVECT Aas HAVE VECTOR CONTROL 

ie peat BiEsee 174026 o000004 MOV Ten 10$ Br a: oT VECT AOR 

1007 oo04002’ 004577 174062 JSR RS, ICLAVEC VE MPG CLEAR I 

1008 o04006’ 900000 10$: -WORD © XXKX 

1008 004010’ 000207 RINTEX: RTS PC exit IN-LINE 

1011 

101¢ ;TEST INTERRUPT VECTOR S/R 

iei3 ;JSR RS TVECT S/R CALL 

1015 :BR L EXECUTED IF NOT SAME 

1016 :R3 MUST CONTAIN PROG TBL ADR 

1017 :DESTROYS RO | 
1019 OO4O12’ 016767 174010 O00010 TVECT: MOV IVCTAD ;GET CURR INT VECT ADR 
1020 004020’ 016346 000004 MOV Pr hACRtRS -(SP) ‘STORE FLGWD ADR TO IDENTIFY ME 
1021 O04024° 904577 174042 JSR RS. JTSTVEC :D0 I HAVE VECTOR CONTROL? 
138 BosOse" peer ie “WORD soca NT ¢ are ER en Se J cer | 
1864 oss’ GoowBt BR TVECTX” ferTr 1 -DONT'T HAVE CN 

1025 604036’ 005725 TST (RS)+ : BYPASS Te INST IN S/R CALL 

1026 o04040" 900205 TVECTX: RTS RS EXIT IN-LINE 


e 


is 


an be bn bs a = bo bo = he be be be ae Bo bs ee bs be be be bo b= bo bo Bo Bw bs bo bs he be he bo bo hw b= be B= b= = bo Bo Bo ho ho bo ee Be ee Be 
o. 
oO 
_ 


BERETS aa IN SSE GEOR EC OUR TR OSS GRR LOR Co OR IRCCS 


Q00000 


Bes 


A 


11/TU10 a 
INES FOR TM 


as 


173674 


ne eo eee 


SAVREG: 


RESREG: 


SUPTAD: 


STSTAT: 
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-SBTTL SUBROUTINES FOR TM11 DEVICE ROUTINE 


;SAVE REGISTERS RO THRU RS 


MOV 
MOV 
MOV 
MOV 


MOV 
MOV 


; JSR RO, SAVREG S/R CALL 
R1,-(SP) ;SAVE RO THRU RS 
R3,-(5P) 

RY’ -(SP) 

RS,-(SP) 

RO; PC EXIT IN-LINE 


;RESTORE REGISTERS RO THRU RS 


TST 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 


;JSR RO,RESREG S/R CALL 


;RESTORE RS THRU RO 


(SP)+ 

(SP)+,R85 

(SP)+,R4 

(SP)+,R3 

(SP)+,Re 

(SP)+,R1 

RO ;EXIT IN-LINE 


;SET PROGRAM’S PROG TABLE ADR IN R3 & MTC ADR IN RY 


;JSR PC, SUPTAD S/R CALL | 

PC, R3 ;SET UP LOCATION ZERO ADR 

#LOC2-. .R3 

-2(R3),R3 ;SUBTRACT PROG TBL LENGTH 
GAD; :GET DEV REG BASE ADR 

#2, R4 ‘POINT AT MTC 

PC ‘EXIT IN-LINE 


;STORE DEVICE’S STATUS REGISTERS 


; JSR RS ,STSTAT S/R CALL 
$e i. REL STORAGE ADR 
;DESTROYS RO,R1 


RS.R1 ;GET REL STORAGE ADR & MAKE 
(RS )+ RL -IT ABSOLUTE 

REGAD ‘GET ADR OF DE Ss 
(RO)+, (R1)+ :STORE ALL DEV REG’S 

(RO)+) (R1)+ 

(RO)+, (R1)+ 

(RO)+, (R1)+ 

(RO)+, (R1L)+ 

(RO), (RL) 

RS sEXIT IN-LINE 


— —_-- — 


SEQ 0410 


a i 


ko 1 heen TM11/TULO DEVICE ROUTI 
il SUBROUTINES FOR TM11 DEVICE 


DTTMAB.P 


2b 2b = + 2 2 bb bs = bb = be be he ph pee b+ b-+ > +0 --b-< b+ & =p -< b+ B= p= pb po 
SRReGRRE oR oe aee 
-_ 


> 0 2b + +0 +b bb bs bb 2 Os 0 2 2 8 8 0 hs bh bb 


KREG BBBVR RES Bsa Non cow OBS Ven Low 


WwW 
™N 


012767 


OUTINE F 
ROU 


OR MPG MACYL1 27(732) 


OUT INE 


;DISPLAY CURRENT UNIT # 


;JSR 


000026 OO000S6 DISUNM: MOV #22. , DISUML 
MOVE  PCURDV(R3),RO 
ce #7 
I SuUIV 
ISR RS, JBTASLZ 
WORD I-. 
000372 Ho UNASCI+4, UNASCI 
000020 DISUIV: MOV . ,DISUML 
BIC #177400. RO 
ISR RS. IBINASC 
f UNASCI-. 
DISUPR: JSR RS, PRINT 
.WORD UNE TMG-. 
DISUML: :WORD 22 


DISPST: 


108: 


; TAILOR STATUS MSG & PRINT IT 
;JSR RS, DISPST 
:WORD  STATADR-. 
:DESTROYS RO,R1,Re 


MOV 

ADD (Res, RE 

Abb 

MOV SEES lls -(SP) 
MOV (R1)+, 

MOV (Ri ys’ DvReMG+2 

TST (R1)+ 


WORD  DVRGMG- 
WORD ile. 

MOV (SP)+,Re 
MOV (SP)+,R1 
DEC (ae 

Bue 08 
RTS ce 


24-SEP-76 14:00 PAGE 8-1 


S/R CALL 


DISUNM 
R32 MUST PEANT BIA PROG TBL ADR 
DESTROYS RO,R1,Re 


pe ao UNIT 8 NORMAL MSG LNGTH 


BA * 


CONVERT # TO DECIMAL ASCII 
nove sc # TO 1ST TWO DIGITS 
G2, SP Ere HB oND MSG LNGTH 


RESET HIGH BYTE 


:CONVERT BINARY # TO ASCII 


;GO0 ISSUE UNIT # MSG 
sEXIT IN-LINE 

S/R CALL 

REL ADR OF STATUS DATA 


;GET DATA ADR 
MAK 


'SET UP ADR OF REG NAMES IN ASCII 
:GET_¥,0F REGISTERS TO DISPLAY 


VE REG NAME T 
PI A au 
Git 
;CONVERT IT TO ASCII 
;PRINT THE STATUS MSG 


;RESTORE R1 & Re 
;DECR REG CNT 


oe COUNT’ FROM STACK 
NE 


T IN-LI 


SES O411 





ee 


i 





MAINDEC-11-DTTMA-B TMI1/TUIO DEV ICE ROUTINE FOR MPG MACYI1 27(732) 24-SEP-76 14:00 PAGE 8-2 SEO O412 
DTTMAB.P11 SUBROUTINES FOR TM11 DEVICE ROUTINE 
1139 ;DISPLAY CONTENTS OF EOF & EOT WORDS 
114 : PC, PRTI S/R CALL 
Lise ide Crrovs ROT RL Re 
1144 004326’ 016700 173456 PRTIWD: MOV EOF ,RO ;GET EOF VALUE 
1145 332’ 004577 173520 JSR. RS,aBINASC ‘CONVERT ITS VALUE TO ASCII 
Hiv? Oovsag" O1676 173446 ov Eotsaa T EOT VAL 
1148 rahi need 1oadde Wee seo NASC i REVERT IT 5 ASCII 
1149 0043S0’ 000635 . WORD IEEQT. 
1150 352’ 004567 o00006 JSR PRINT ;PRINT MSG WITH THEIR VALUES 
1151 * OO00606 WORD INFOMG-. 
1152 004360’ 000027 .WORD 23. 
1153 004362’ 000207 RTS PC sEXIT IN-LINE 
| 1155 s ISSUE MSG TO LIST DEVICE 
| 4157 JSR RS, PRINT S/R CALL 
1158 : MSGADR-. REL ADR OF MSG 
1159 in BYTCNT MSG BYTE CNT (IF NEGATIVE, 
1160 RESET PRT DEV DEDICATED: ) 
| Like @ = PROB DBE AOR -- IF NEGATIVE, USE CMND MODE PRINT 
| 1163 staat RO,R1,Re 
| 1165 004364’ 010500 PRINT: MOV Rs RO “ ;GET MSG ADR & MAKE IT ABS 
1185 358. peseno abo (R5)+'R1 ;GET BYTE COUNT 
1168 004372" 005704 ist RY ; USE CMND MODE PRINT? 
1153 Bbdaoe 400030 MOV pes 2 ie ips LINK INFO ADR 
1171 OO4400’ 062702 000040 80D #20$-. ,R2 te a, 
1155 , peneee MOV Ro’ tR2)+ OT ORE 
1174 MOV RI’ (Re) :STORE MSG’S BYTE COUNT 
1176 BPL 108 :CNT ¢? (Y .N-1 
11 NEG (Re) “MAKE IT POSITI 
1177 QO00SE 10S: ## MOV PASCIN(R3) , PROGNM :STORE PROG’S # IN MSG 
1178 JSR RS, ICLIST ISSUE PROG # 
tiga ‘oe US 
1181 JSR RS, aCLIST * ; ISSUE MSG SPECIFIED 
1182 20S: - WORD XKKX 
11 WO XXXX 
1184 ISR RS, JCLIST sISSUE A <CR> & <LF> 
1185 WORD CRLF. 
Ue ws. By RR 90 10 ExtT 
1189 E HOV Rl, 8 Be ne Bye chy 
1 ’ @ULIST SSUE THE MSG 
1191 SOs: T7ORO XXX 
113 BES: agro Bc sEXIT IN-LINE 
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NAINDEC-11-DTTMA-B _TM11/TUIO DEVICE ROUTINE FOR MPG MACYI1 27(732) 24-SEP-76 14:00 PAGE 10 SEQ O414 
DTTMAS.Pil FORMATS FOR PROGRAM 8 DEVICE ROUTINE TABLES 
.SBTTL FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 
; PROGRAM TABLE FORMAT 
ooo242 PTLGTH= 162. | ;PROGRAM TABLE LENGTH - NON MEM MNGMNT VERSION OF MPG 


;(PTLGTH= 212. ;PROGRAM TABLE LENGTH - MEM MGMNT VERSION OF MPG) 


CREEL O SR | 


000000 PFLGWD= +0. ;PROGRAM FLAG WORD - 1 WORD 
00002 TOP= 2 ; ts ee ee ae cin THIS PROGRAM 
Ooo0i0 Halor= io} 1 = WRITING FOR 70 TERMINATION 

10 WT4IOT= 10 ; i = WAITING FOR eAtere ry 
eet CTPRIO= 20 ; 1 = CONSOLE N PROGRES $s 

SETDED= 40 ; 1s THIS BROS Set he PAT erst DEDICATED FLAG 

000100 OCPRES= 1 ; 1 = OBJ Oe paca 
vie = ; 1 = THIS Us? HE UNIBUS MAP_(MEM MGMNT ONLY) 
1 IVE= 100000 ; 1 = PROGRAM IS ACTIVE (SPECIFIED FOR EXECUTION) 


hororerorery rororororuroturorarorarurorony 
<£ 


| 
eb oococ2 POPSW= +2 ;PROGRAM’S OPERATION SWITCHES - 1 WORD 
1267 100000 TONER= 100000 ; 1 = STOP PROG @ EXECUTION UPON E 
1268 CYCPRG= 40000 ;1 = ay CLE PROGRAM CON CURRENT BEV ICE) 
1269 R= 20000 ; : = 60 NOT PRINT ON 
Bait I BITie= 10000 ; 0 = NOT USED 
1271 004000 BITli= 4000  : 0 = NOT USED 
| He 002000 cc = 2000 : : = cre THE ah we T aise . 
eT eerie RCK= 4 - 1s 80 ERROR CKING ; 
1275 000200 SPOPER= : 1 = DEVICE SPECIAL OPERATION 
1 000100 BITé= 100 : O = NOT USED 
1 000040 DOIOT= 40 : 1 = DO NOT PERFORM 1/0 TIME QUT 
1278 AUTORP= 20 : 1 = DO NOT AUTOMATI Gait COUNTS 
1279 00001 AURPEP= 10 : 1 = AUTO DISPLAY CO COUNTS, S 8 eh 9 OF FINAL PASS ony 
iSey Sopoee Brepove : : { ; BetRT FIRST BaD T BAD “ON VERIFY 
| 128 eenayt OMP= I : tS be Nor PRP NT aD are 
| 128s 000004 PFWADR= +4. ;%#;PROGRAM FLAGWORD ADDRESS - 1 WORD 
| eB p00006 PASCIN= +6. :PROGRAM’S NUMBER IN ASCII - 1 WORD 
1288 900010 PNAME= +8. ;PROGRAM’S NAME IN ASCII - 6 BYTES 
1290 000016 PRDIOA= +14.  ;ADDRESS OF READ I/0 AREA - 1 WORD 
lege ooo020 PWRIOR= +16. | ;ADDRESS OF WRITE I/0 AREA - 1 WORD 
129 ooo022 PSRCST= +18. | ;SOURCE STATEMENTS START ADDRESS - 1 WORD 
1296 000024 POBJST= +20.  ;OBJECT CODE START ADDRESS - 1 WORD 
1298 o00026 PLNGTH= +22. § ;PROG AREA LENGTH (OBJ END MINUS PROG TBL START) - 1 WORD 
1300 000030 PTOCNT= +24.  ;1/0 TIMEOUT COUNT - 1 WORD 





© 


INQEC=HL-DTTNA=S TH. bun speuICE ROUTINE FO FOR NPG reel oe! B03 24-SEP-76 14:00 PAGE 10-1 SEO O415 
1302 000032 PMDLCD= +26.  § ;DEV ROUT MODEL # CODE - 1 WORD 

Laos 000034 PDPNTR= +28. § ; CURRENT DEVICE NUMBER POINTER - 1 BYTE 

1306 000035 PCURDVs +29. § ; CURRENT DEVICE # - 1 BYTE 

iS 000036 PDNUMS= +30.  ;DEVICE NUMBERS - 16 BYTES 

i316 o0005& PTEMO= +46.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

ESE 000060 PTEMI= +48 ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

iat 00062 PTEM2= +50 USER PROGRAM TEMPORARY STORAGE - 1 WORD 

3g 000064 PTEM3= +52.  § ;USER PROGRAM TEMPOKQRY STORAGE - 1 WORD 

ie 000066 PTEM¥= +54. § ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

1320 000070 PTEMS= +56 ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

1382 000072 PTEME= +58 ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

13es 000074 PTEM7= +60 ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

138 000076 PTEME= +62. § ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

138 000100 PTEMS= +64. § ;USER PROGRAM TEMPORARY STORAGE - 1 WORD | 
1s o001uz2 PTEMIO= +66. § ; USER PROGRAM TEMPORARY STORAGE - 1 WORD 
133 000104 PTEMLI= +68. § ;USER PROGRAM TEMPORARY STORAGE - 1 WORD | 
1334 000106 PTEMI2= +70.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 
es 000110 PTEMI3= +72.  ; USER PROGRAM TEMPORARY STORAGE - 1 WORD 

3 000112 PTEMI4= +74.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

1340 000114 PTEMIS= +76.  ;USER PROGRAM TEMPORARY STORAGE - 1 WORD 

Ea 000116 PNBR= +78. | ;NUMBER OF BYTES TO TRANSFER ON MOVE (NBR) - 1 WORD 

1348 000120 PSRC= +80. § ;DATA SOURCE ADDRESS ON MOVE (SRC) - 1 WORD 

1346 000122 POST= +82. § ;DATA DESTINATION ADDRESS ON MOVE (DST) - 1 WORD 

1348 00124 PSTKCT= +84.  ;® OF WORDS (X 2) SAVED OFF STACK - 1 WORD 

ie 000126 PSTKSV= +86. § ;STACK WORDS STORAGE AREA - 30 WORDS 

ie o00222 PSVREG= +146. ; USER'S RO THRU RS REGISTERS STORAGE AREA - & WORDS | 
1353 o0023t PUSRPC= +158. USER'S CURRENT PROGRAM COUNTER - 1 WORD 


Ss 
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FOLLOWING ENTRIES (PRDIOX THRU PUBMAP) ARE ONLY IN MEM MGMNT VERSION 
; (PROIOX= +160. ;18/22 BIT ABSOLUTE ADDRESS OF READ 1/0 AREA - 2 WORDS) 
;(PROIOVs +164. ;18 BIT VIRTUAL ADDRESS OF READ 1/0 AREA - 2 WORDS) 
;(PWRIOX= +168. ;18/22 BIT ABSOLUTE ADDRESS OF WRITE 1/0 AREA - 2 WORDS) 
;(PWRIOV= #172. ;18 BIT VIRTUAL AUDRESS OF WRITE 1/0 AREA - 2 WORDS) 
; (PUPARS= +176. ;STORAGE AREA FOR USER'S PAR’S 0 THRU 7 - @ WORDS) 
; (PUPDRS= +192. ;STORAGE AREA FOR USER'S PDR'S 0 THRU 7 - 8 WORDS) 
;(PUBMAP= +208. ;1ST UNIBUS MAP REG ® AND # OF REGS USED - 1 WORD) 
;END OF MEM MGMNT ONLY ENTRIES 
o00240 PTSIZE= +160. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - NON MEM MGMNT 
;(PTSIZE= +210. ;PROGRAM TABLE SIZE IN BYTES - 1 WORD - MEM MNGMNT VERSION) 
oooe42 PTEND= +162. END OF PROGRAM TABLE - NON MEM MGMNT VERSION 
;(PTEND= +212. ;END OF PROGRAM TABLE - MEM MGMNT VERSION) 
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DEVICE ROUTINE TABLES 
, DEVICE ROUTINE TABLE 
DRTLTH: 78. DEVICE ROUTINE TABLE LENGTH 
Bevesz='+0.  ;DEVICE ROUTINE SIZE IN BYTES - 1 WORD 
DEVFWO= +2. _; DEVICE ROUTINE FLAGWORD - 1 WORD 
DEVIWi= +4.  ;DEVICE INTERFACE WORD @ 1 - 1 WORD 
DEVIW2= +6. ;DEVICE INTERFACE WORD # 2 - 1 WORD 
DEVIW3= +8. _; DEVICE INTERFACE WORD ® 3 - 1 WORD 
DEVIWH=: +10.  ;DEVICE INTERFACE WORD 8 4 - 1 WORD 
DEVIWS: +12.  ;DEVICE INTERFACE WORD #5 - 1 WORD 
DEVIWG= +14.  ;DEVICE INTERFACE WORD ® & - 1 WORD 
DEVIN7s +16.  ;DEVICE INTERFACE WORD #7 - 1 WORD (SIZE) 
DEVIWG= +18.  ;DEVICE INTERFACE WORD #8 - 1 WORD (ERR) 
DEVDRAs +20.  ;DEVICE REGISTERS ADDRESS - 1 WORD 
DEVIvAs +22.  ;DEVICE INTERRUPT VECTOR ADDRESS - 1 WORD 
DEVRPS= +24.  ;DEVICE READ PROCESSOR STATUS WORD (BUS REG) - 1 WORD 
DEVWPS: +26.  ; DEVICE WRITE PROC STATUS WORD (BUS REQ) - 1 WORD 
DHKPAD= +28.  ;DEVICE ROUT HOUSEKEEPING ROUT REL ENTRY ADR - 1 WORD 
DERPAD= +30.  ;DEVICE ROUT REPORT ROUT REL ENTRY ADR - 1 WORD 
DKILAD= +32.  ;DEVICE ROUT KILL ROUTINE REL ENTRY ADR - 1 WORD 
DECTAD= +34.  ;DEVICE ROUT ERROR COUNTER REL ADR - 1 WORD 
DTOEAD= +36.  ;DEVICE ROUT TIMEOUT ERR ROUT REL ENTRY AOR - 1 WORD 
DEVIOB= +38.  ;DEVICE 1/0 BUEY BRANCH ADDRESS (CIOBSY) - 1 WORD 
DEVDERs +40.  ;DEVICE ERROR BRANCH ADDRESS (CUPGER) - 1 WORD 
DVUPRT= +42. USER MODE PRINT BRANCH ADDRESS (ULIST) - 1 WORD 
DVCPRT= +44.  ;CMND MODE PRINT BRANCH ADDRESS (CLIST) - 1 WORD 
DEVBTAs +46.  ;CONVERT BINARY TO ASCII BR ADR (BINASC) - 1 WORD 
DVBTDAs +48.  ;CONVERT BINARY TO DECIMAL ASCII BR ADR (BTASLZ) - 1 WORD 


SEQ 0417 
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| OTTMAB.P FORMATS FOR PROGRAM & DEVICE ROUTINE TABLES 


1439 oo0062 DVPDTA= +50. ; CONVERT PACKED DECIMAL TO ASCII BR ADR (DECASC) - 1 WORD 
144] oo00e4 DVSFWO= +52.  ;MPG SYSTEM FLAGWORD ADDRESS (CSYSFW) - 1 WORD 

is o00086 DVSVEC= +54. © ;SET INTERRUPT VECTOR BR AOR (SETVEC) - 1 WORD 

is4s 000070 OVCVEC= +56. — ; CLEAR INTERRUPT VECTOR BR AOR (CLRVEC) - 1 WORD 

ie 000072 DVTVEC= +58.  ; TEST INTERRUPT VECTOR BR ADR (TSTVEC) - 1 WORD 

144 000074 DVRINT= +60.  ; RETURN FROM INTERRUPT BR ADR (RTNINT) - 1 WORD 

iB 000076 DVGETB= +62. ;GET DATA BYTE GR ADR (GETBYT) - 1 WORD 

1453 000100 DVPUTB= +64. § ;PUT DATA BYTE BR ADR (PUTBYT) - 1 WORD 

1355 000152 DEVSTP= +66.  ;DEVICE ROUT REL SYMBOL TABLE POINTER - 1 WORD 

te 000104 DEVETP= +68.  ;DEVICE ROUT REL ENTRY TABLE POINTER - 1 WORD 

1953 000106 DVPTEP= +70.  ; PACK TABLE EXTEN. REL POINTER - 1 WORD 

1461 000110 DWTEPs +72. ; VECTOR TABLE EXTEN. REL POINTER - 1 WORD 

1365 000112 DVCTEP= +74.  ;COMPILER TBL EXTEN. REL POINTER - 1 WORD 

1455 900114 DVIWSP= +76.  ; DEVICE INTERFACE WORD SYMBOL TBL REL POINTER - 1 WORD 
ie) 000116 ORTEND= +78.  ;END OF DEVICE ROUTINE TABLE 

1463 

1470 000001 END 
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Pll SYMBOL 


re ie ieee Baars DO4015R i ineToe= Qbotee* 
p00 


ERRORS DETECTED: 0 
OBAL: 


S GENERATED: 0 


GL 
- Br ree 10 ee Pat 
RA 


RUN-TIME: 4.9 1 SEC 
RUN-TIME RATIO: 2e/14=1 5 
CORE USED: SK ( 
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